home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / amos / PrgCollection.lha / BouncingBalls2.AMOS / BouncingBalls2.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1994-03-12  |  1.3 KB  |  47 lines
  1. ' *************************************
  2. ' *                                   *
  3. ' *        Bounching Balls V2.1       *
  4. ' *      Written by Chris Hodges      *
  5. ' *                                   *
  6. ' *************************************
  7. '
  8. Screen Open 0,320,200,2,0
  9. Curs Off : Flash Off : Cls 0
  10. Colour 17,$484 : Colour 18,$8C8 : Colour 19,$CFC
  11. Colour 21,$844 : Colour 22,$C88 : Colour 23,$FCC
  12. Colour 25,$448 : Colour 26,$88C : Colour 27,$CCF
  13. Colour 29,$884 : Colour 30,$CC8 : Colour 31,$FFC
  14. A$="L R0=X*20; L R1=Y*20; L A=2; L R4=2; "
  15. A$=A$+"A: L X=R0/20; L Y=R1/20; L A=R4; P; L R1=R1+R3; L R3=R3+1; L R0=R0+R2; "
  16. A$=A$+"   I R0+R2<2560 J L; "
  17. A$=A$+"   I R0+R2>8640 J L; "
  18. A$=A$+"B: I R1+R3>4680 J U; "
  19. A$=A$+"C: I R2>0 J R; "
  20. A$=A$+"   I R2<0 J S; J A; "
  21. A$=A$+"L: L R2=0-R2; J B; "
  22. A$=A$+"U: L R3=1-R3; J C; "
  23. A$=A$+"R: L R4=R4-1; I R4>1 J A; L R4=R4+20; J A; "
  24. A$=A$+"S: L R4=R4+1; I R4<22 J A; L R4=R4-20; J A; "
  25. Hide : AN=7
  26. For A=0 To AN
  27.   Sprite A,Rnd(300)+128,Rnd(40)+50,1
  28.   Channel A To Sprite A
  29.   Amal A,A$
  30.   Amreg(A,2)=(Rnd(50)+10)*(Rnd(1)*2-1)
  31.   Amreg(A,3)=Rnd(30)
  32. Next 
  33. Amal On 
  34. Make Mask 
  35. Dim C(AN)
  36. Do 
  37.   For A=0 To AN
  38.     B=Sprite Col(A,0 To AN)
  39.     If B and(C(A)=0)
  40.       Amreg(A,2)=-Amreg(A,2) : Amreg(A,3)=-Amreg(A,3)
  41.       C(A)=1
  42.     Else 
  43.       If B=0 : C(A)=0 : End If 
  44.     End If 
  45.   Next 
  46.   Wait Vbl 
  47. Loop